Delphi поддерживает работу с разными видами меню - с обычным меню (по другому оно называется главным меню приложения), с контекстным меню, с системным меню. В этом уроке мы с вами посмотрим, как можно использовать в ваших программах на Delphi обычное меню. Для размещения в вашей программе такого меню выберите компонент MainMenu на вкладке Standard на Палитре компонентов:

После этого на вашей форме появится компонент с именем MainMenu1.

Где он располагается на вашей форме на этапе разработки программы - все равно. На этапе выполнения меню все равно будет в своем стандартном месте - наверху формы. Сейчас в нашем компоненте MainMenu1 нет пунктов меню. Для добавления новых пунктов меню просто сделайте двойной щелчок на MainMenu1. Откроется окно редактора меню. Добавьте в него два пункта, как показано на рисунке (для этого просто введите нужные названия пунктов меню с клавиатуры):

Закройте окно редактора меню и запустите программу. На форме должно появится наше меню:

Теперь посмотрим, как можно добавить обработчик для какого-нибудь пункта меню. Для добавления обработчика просто щелкните на нужном вам пункте меню (на этапе разработки программы, конечно). Откроется окно кода с сгенерированной заготовкой для обработчика, в которую просто впишите нужный вам код (мы в нашем примере просто вызываем messagebox):

procedure TForm1.Submenu1Click(Sender: TObject);
begin
  ShowMessage('Выбрано меню Sub menu');
end;

Вот, собственно, и все.

---

Автор Алексеев Игорь..